open FILE, "<C:\\Documents and Settings\\R19338\\Desktop\\1_gucci_fr.xml";
open WFILE, "<C:\\Documents and Settings\\R19338\\Desktop\\samecolor.xml";

my @colornames;
while(<FILE>){
	chomp;
	if (/<Color>\s*<Name>(.*?)<\/Name>/isg){
		push (@colornames, $1);
	}
}

